Attorney Docket No. EMB1P072 



APPENDIX 1 



void sw ( ) 
( 



#define iw = 12; 



/* instruction 
width */ 

/* memory width */ 
/* push constant */ 
/* push variable */ 
/* push address */ 
put a character along the 
standard output channel*/ 
get a character from the 
standard input channel */ 



#defme mw = 3: 
#define CONST = 0 
#define LOAD = 1 
#defme GLOBAL -2 
#defme PUTCHAR, = 15 /* 



#defme GETCHAR=16/* 



rom program [] 

#include "prog.o" ): ram stack[l«mw] with dualport = 1 ]; 
ram memory[l«mw] unsigned iw PC, ir, tos; 
unsigned mw sp; 

do par it = program[pc]: PC = PC + 1; 

tos = stack[sp- 1 ] ; /* save top of 



switch (ir) 
case 

CONST par 

stack[sp] =program[pc]; 
sP = sP+1: 
PC = Pc+l: 
] 

break; 
case LOAD 

stack[sp-l] = memory[tos<-mw]; 
break; 

case STOP break; default : /* imknown opcode */ 

while (1) delay; 

] while (ir != STOP); 



stack to avoid 
two ram accesses 
in one cycle 



*/ 
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] 

Register transfer level description of simple processor 
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APPENDIX! 



void main() { char hwswchan; 
char unsigned 8 port: 

5 

par { 

parallel_„port(port); 
SyncGenQ: 

10 initialiseRam(port); 

par{ 

display(hwswchan): sw(hwswchan); 

yi} 

} 



15 



RTL description of main 
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APPENDIX 3 



CALCULATION PROCESS 

5 /* 

* Channel communicating object positions 
*/ chap unsigned 17 position; 

/* 

10 * Channel communicating segment infonnation 
*/ 

chanout unsigned 9 segment; 

/* 

15 * Channel communicating button infonnation 

*/ 

chanin unsigned 2 buttons; 
/* 

20 * Overall par 
*/ par 

/* 

* Mass motion 
25 */ 

/* 

* Positions of each mass, 9+8 fixed point 

*/ 

30 unsigned 17 pO, pi, p2, p3, p4, p5, p6, p7; 

/* 

* Velocity of each mass, 9+8 fixed point 

*/ 

int 17 vl, v2, v3, v4, v5, v6, v7; ' 
35 /* 

* Accelerations of each mass, 9+8 fixed point 
*/ 

int 17 al, a2, a3, a4, a5, a6, a7; 

/* 

40 * Sutton status 

*/ 

unsigned 2 button status; 

/* 

* Initial setup of positions 
45 */ 
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10 



pO = 65536; 
pi = 65536; 
p2 = 65536; 
p3 = 65536; 
p4 = 65536; 
p5 = 65536; 
p6 = 65536 
p7 =65536 



/* 

* Forever 

*/ 

while (1) 
15 { 

/* 

* Send successive positions down position channel 

*/ 

20 send(position5 pO); 

send(position, pi); 

send(position, pi); 

send(position, p2); 

send(position, p2); 
25 send(position, p3); 

send (position, p3); 

send(position, p4); 

send(position, p4); 

send(position, p5); 
30 send(position, p5); 

send(position, p6); 

send(position, p6); 

send(position, p7); 

35 /* 

* Update positions according to velocities 
*/ 

pi (unsigned 17)vl; 

p2 +_ (unsigned 17)v2; 
40 p3 (unsigned 17)v3; 

p4 (unsigned 17)v4; 
p5 (unsigned 17)v5; 
p6 (unsigned 17)v6; 
p7 (unsigned 17)v7; 



45 



85 



Attorney Docket No. EMB1P072 



10 



* Update velocities according to accelerations 
*/ 

vl += al - (vl » 6); 
v2 += a2 - (v2 » 6) ; 
v3 aS - (v3 » 6); 
v4 += a4 - (v4 » 6); 
v5 4=a5-(v5'»6); 
v6 += a6 - (v6 » 6); 
v7 += a7 - (v7 » 6); 



/* 

* Set accelerations according to relative positions 

*/ 

al = (int 17)(((p2 » 8) - (pi » 8)) + ((pO » 8) - (pi » 8))); 
15 a2 = (int 17)(((p3 » 8) - (p2 » 8)) + ((pi » 8) - (p2 » 8))): 

a3 = (int 17)! !(p4 » 8) - (p3 » 8)) + ((p2 » 8) - !p3 » 8))); 

a4 = (int 17)(((p5 » 8) - (p4 » 8)) + ((p3 » 8) - (p4 » e> >; 

a5 = (int 17)((!p6 » 8) - (p5 » 8)) + ((p4 » 8) - (p5 » 8))); 

a6 = (int 17)(((p7 » 8) - (p6 » 8)) + ((p5 » 8) - (p6 » e > ) ; 
20 a7 = (int 1 7)((p6 » 8) - (p7 » 8)); 

/* 

* Get button information 
*/ 

25 receive(buttons, button status); 

/* 

* Fix top point according to buttons 
*/ if (button status &1) 

30 



p0 = 65536- 16384; 
) 

else if (button status & 2) 
( 

35 p0 = 65536 + 16384; 

else 

pO = 65536; 

40 } 
) 

/* 

* nine drawing 
*/ 

45 ( 

/* 
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* Positions of previous and next massess positions 
*/ 

unsigned 17 prev_.pos, next pos, curr pos; 

/* 

* Which line of interpolation 

*/ 

imsigned char line; 
/* 

* Forever 

*/ 

while (1) 
( 

/* 

* Receive previous mass position 
*/ 

receive (position, prev posy; 
curr pos = prev pos; 

/* 

* Read next mass position 
*/ 

receive(position, next posy; 

/* 

* Do 64 hnes of interpolation 
*/ 

for (line = 0; line != 64; line-H-) 
( 

/* 

* Send start position of segment 
*/ 

send(segment, curr pos » 8); /**width adjustment:17 along 

channel of width 9 so takes bottom 9 
bits*/ 

/* 

* Move by appropriate amount (1/64 total change) 

*/ 

curr pos +_ (unsigned 17)(((int 17)next pos - 

(int 17)prev pos) » 6); 

/* 

* Send end position of segment 
*/ 

send(segment, curr pos » 8): 

) 

) 

) 
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DISPLAY PROCESS 

5 

/* standard includes */ 

#include "hammond.h" 
#include "syncgen.h" 
#include "stdlib.h" 
10 #include "paralleLh" 

/* 

* Segment information channel */ chap segment; 

15 /* 

* Button information channel */ 
chan buttons: 

/ 

20 * Include dash generated stuff */ 
#include "handelch" 

/* 

* Main program */ 
25 void main() ( 

/ 

* Scan positions 
*/ unsigned sx, sy; 

30 / 

* Vdeo output register 

*/ 

unsigned 1 video; 

35 /* 

* Video output bus 
*/ 

interface bus out() video out(Visible(sx, sy) ? 
40 (video ? (unsigned 12)0xfff : 0) 0) with video spec; 

#ifiidef SIMULATE 
/* 

* Left button input bus 
45 */ 

interface bus in (imsigned 1) button JeftQ 
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with button white spec; 

/* 

* Right button input bus 

*/ 

interface bus in(unsigned 1) button rightQ 
with button_black spec; 
#endif 



10 /* 
* 



*/ par { 
/* 



Overall par 



15 * VGA sync generator 

*/ 

SyncGen(sx, sy, hsync pin, vsync pin); 
/* 

20 Dash generated hardware 

*/ 

hardwareO; 
/* 

* Run-length decoder 
25 */ 

{ 

/* 

* Segment start and end positions 
*/ 

30 unsigned start, end; 

/* 

* Forever 
*/ 

while (1) 
35 { 

while (sy != 448) 
/* 

* Read segment information 

*/ 

40 segment ? start; 

segment ? end; 
/* 

* Get in the right order 

*/ 

45 if (start > end) 

{ 
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s -s^ 



25 



45 



par 

{ 



end = start; 
start = end;. 
) 



/* 

10 * Make at least 1 pixel visible 
*/ 

if(start = end) 

end++; 



15 /* 
*/ 



Wait 



while (sx != 0) 
delay; 

20 /* 



* Draw a scanline wortii 

*/ 

while (sx !=512) 

if ((sx <- 9) >= start && (sx <- 9) < end) 

video = 1; 

else 
video = 0; 



30 ) 

/* 

* Communicate button status 
*/ 

#ifdef SIMULATE 
35 buttons ! 1; 



#else 
#endif 



buttons ! button left.in @ button right.in; 



/* 

40 * Wait 



) 



*/ 

while (sy != 0) 
delay. 
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